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Pag. 26 - legenda a esquerda 

Onde se IS: No TK-80X o Caleidoscopio 
Leia-se: No TK-90X, o Caleidosc6pio 

Pag. 34 - If col. - 4? paragr. 

Onde se le: 5+ 10 + 200 + 3000 
Leia-se: 5 + 70 + 200 + 3000 

Pag. 53-1? col. - 2? paragr. 

Onde se IS: um conector DID 
Leia-se: urn conector DIN 

Pag. 56 - titulo da materia 
Onde se le: ARITIMETICA 
Leia-se: ARITM^TICA 

Pag. 60 - 3? col. - quadro 

Onde se le: O octal tern 8 digitos: 0, 1, 

2, 3, 4, 5, 6, 7 e 8. 

Leia-se: O octal tern 8 digitos: 0, 1,2, 

3, 4, 5, 6 e 7. 

Pag. 87 - interlltulo - faixa prela 
EFEITOS DOS BLOCOS GRAFICOS 

Pag. 245 - 1? col. - 1? c 4? paragr. 
Onde se le: V AL( = AS) e V AL( = B$) 
Leia-se: VAL(A$) e VAL(B$) 

Pag. 245 - 1? col. - 4? paragr. 
Onde se le: B$"45 MARCOS" 
Leia-se: B$= "45 MARCOS" 

Pag. 260 - 1? col. - 5?, 6?, 7? paragr. 
Pag. 260 - 2? col. - 2? paragr. 

Onde se le: CURS 
Leia-se: CHRS 

Pag. 290 -If col. - ultimo paragr. 
Pag. 291 - 2? col. - ultimo paragr. 
Onde se le: comandos GETS 
Leia-se: comandos GET 

Pag. 294 - 1? col. - 2? paragr. 
Onde se le: poderao ser chocados 
Leia-se: poderao ser checados 

Pag. 301 - 3? col. - If paragr. 

Onde se le: A for menor que o de B 
Leia-se: A for menor ou igual ao de B 

Pag. 327 - 2? col. - 6? paragr. 
Onde se le: COSUB 
Leia-se: GOSUB 

Pag. 364 - If col. - 2? paragr. 

Onde se le: comandos de remuneragao 
Leia-se: comandos de renumera?ao 

Pag. 366 - 2? col. - 2? paragr. 

Onde se le: trara 65, o c6digo de B. 
Leia-se: trara 66, o c6digo de B. 

Pag. 398 - 2? col. - 7? paragr. 
Onde se le: SIS 
Leia-se: S$ 



Pag. 398 • 3? col. - 
Onde se le: Sl$( ) 
Leia-se: S$( ) 



UP paragr. 



Pag. 444 - quadro - 2? paragr. 

Onde se le: Os micros das linhas 
TRS-80, TRS-Color, Apple, TK-2000 
e MSX, 

Leia-se: Os micros das linhas TRS-80, 
Apple, TK-2000 e MSX, 

Pag. 501 - 1? col. - 3? paragr. 

Onde se le: mensagens do tipo "Voce 
tern um canhao disponfvel". 

Leia-se: mensagens do tipo "VOCE 
TEM 1 CANHOES DISPONIVEIS". 

Pag. 561. - 2? col. - 5? paragr. 

Onde se le: sistemas telemetricos, 
Leia-se: sistemas telematicos, 

Pag. 564 - 2? col. - 2? paragr. 
Onde se le: sistemas telemetricos 
Leia-se: sistemas telematicos 

Pag. 584 - 2? col. - 2? paragr. 

Onde sele: linhas 5000 e 5180 
Leia-se: linhas 5000 e 5130 

Pag. 609 - 1? col. - 1? paragr. 

Onde sele: Alguns computadores (Apple, 
TK-2000, MSX e TRS-80) permitem 
dois ou mais parametros, enquanto 
outros (TRS-Color), apenas um. 

Leia-se: Alguns computadores (Spectrum, 
MSX e TRS-80) permitem dois ou 
mais parametros, enquanto outros 
(Apple, TK-2000 e TRS-Color), ape- 
nas um. 

Pag. 610- 1? col. - 1? paragr. 
Onde se le: X x X x X 
Leia-se: X * X ♦ X 

Pag. 634 - 1? col. - 3? paragr. 

Ondese le: Devido a falta de comandos 
graficos adequados no ZX-81, nao 
apresentamos programas para essa 
maquina. 

Leia-se: Devido a falta de comandos 
grdficos adequados no ZX-81 e no 
TRS-80, nao apresentamos progra- 
mas para essas m&quinas. 

Pag. 748-1? col. - 2? paragr. 

Onde se le: Keytone Kappers 
Leia-se: Keystone Kappers 

Pag. 852 - nomenclatura no esquema 
de blocos 

Onde se le: Detector de visao 
Leia-se: Detector de video 

Pag. 906 - 2? col. - 2? paragr. 

Onde se le: concectar 
Leia-se: conectar 



Pag. 908 - 1? col. - 2? paragr. 

Onde se le: Sinclari 
Leia-se: Sinclair 

Pag. 924 - 2? col. - ultimo paragr. 

Onde se le: TR-Color 
Leia-se: TRS-Color 

Pag. 932 - 3. a col. - 2? paragr. 
Onde se le: LET A = VAL"100" 
Leia-se: LET A = VAL( I4 100"> 

Pag. 1014 - 1? col. - I? paragr. 

Onde se le: artigo da pagina 816. 
Leia-se: artigo da pagina 794. 

Pag. 1124 - 2? col. - 3? paragr. 

Onde se le: John von Newman 
Leia-se: John von Neumann 

Pag. 1180 - If col. - fig. 

Onde se IS: Waiting time (sees) 
Leia-se: Tempo decorrido (segundos) 

Pag. 1260 - 1? col. - 4? paragr. 
Onde se IS: < SCAPE > 
Leia-se: < ESCAPE > 

Pag. 1311 - 3? col. - \? paragr. 

Onde se le: sa ft ware 
Leia-se: software 

Pag. 1320 - quadro 

Onde se le: FORWARD I): 

Leia-se: FORWARD :D 

Pag. 1329 - 3? col. - IP paragr. 
Onde se IS: <C1RL> <C> 
Leia-se: <CTRLxC> 

Pag. 1349 - 3? col. - 6? paragr. 

Onde se le: alistamento 
Leia-se: alisamento 

Pag. 1383 - 3? col. - 2? paragr. 
Pag. 1384 -3? col. - 1? paragr. 
Pag. 1385 - 2? col. - 2? paragr. 

Onde se le: WYSWYG 
Leia-se: WYSIWYG 

Pag. 1383 - 3? col. - 2? paragr. 

Onde se le: (do ingles What You See 

What You Get) 
Leia-se: (do ingles What You See Is 

What You Get) 



Pag. 7 - 2? col. - 2? paragr. 

Onde se le: (s6 vale para o TK-90X): 
Leia-se: (vale para toda a linha Sinclair): 

Pig. 30-1? col. - progr. 

No linha 60, suhstitua a flecha para 
cima pela tetra 1. 
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Pig. 32 - 3? col. - progr. 


Pag. 1214 - 2? col. 


Pag. 304 - 2? col. - progr. 


Na linha 150, substitua a flecha para 


Onde se le: X$(LEN X$- N TO+ 1) 


O logotipo nao se aplica a este 


cima pela letra I. 


Leia-se: XS(LEN X$-N TO) 


programa. 


Pag. 39-1? col. - progr. 


5 ■■■■■■■■ 


Pig. 309 - If col. - 2? progr. 


Para funcionar no ZX-81, coloque t li- 


Corrija as linhas 140 e 145: 


do em maiusculas e troque a linha 130: 




140 DATA "NADAR",5;'ESVAZIAR",6 f 


130 PRINT, m "OUTRO NUMERO (S/N)?" 


Pag- 30 - 1? coL - progr. 


"ACENDERV, "DESISTIR'^'LIS 




Na linha 60, substitua a flecha para 


TAR'^/'MATAR'UO/'ATIRAR", 


Pag. 41 - If col. - progr. 


cima pela letra I . 


10,"AJUDAR*M1 


Para funcionar no ZX-81, coloque 




145 DATA "PEGAR",2; 4 APANHAR", 


tudo em maiusculas e faqa as seguin- 


Pag. 32 - 3? col. - progr. 


2, 4t CARREGAR'\2/'COLOCAR \ 


tes altera^des no programa: 


Na linha 150, substitua a flecha para 


3,"DEIXAR",3,' t LARGAR'\3, ii PU 


25 LET T = 


cima pela letra I . 


XAR",4 


26 LET C = 






40 IF N= -99 THEN GOTO 80 


Pig. 46 - If col. - progr. 


Pag. 309 - 2? col. - progr. 


80 PRINT "MEDIA = ";T/C 


Acrescente a linha 90: 


Acrescente a linha 515: 


90 STOP 


90 DIM a$(32) 


515 GOTO G(I) 


Pag. 42 - 2? col. - progr. 


Pig. 94 - l. a col. - 3? progr. 


Pdg. 366 - 2f col. - 1? progr. 


Para funcionar no ZX-81, coloque 


Pag. 100 - If col. - 31* progr. 


O logotipo nao se aplica a este 


tudo em maiusculas e fa<;a as seguintes 


O logotipo nao se aplica a este 


programa. 


a/tera^oes no programa: 


programa. 




50 IF G = N THEN GOTO 90 




Pag. 640 - 2f col. - 4? parigr. 


90 PRINT "MUITO BEM" 


Pag. 136 - 3f col. - progr. 


Onde se le: UNK 


92 PAUSE 100 


Corrija a linha 200: 


Leia-se: INK 


94 GOTO 10 


200 CLS:PRINT BRIGHT v;PAPER 2; 






INK 6; AT2,4;"MENU PRINCIPAL" 


Pig. 824 - 2f col. - progr. 


Pag. 43 - 1? col. - 2" progr. 




Corrija a linha 750: 


Para funcionar no ZX-81, mude tu- 


Pag. 169 - If col. - 2? parigr. 


750 REM org 58155 


do para maiusculas e separe as instru- 


A crescente: 




$oes da linha 1 10 em duas linhas: 


No micro nacional TK-90X, o co- 


Pag. 825 - 3? col. - progr. 


110 LET A$=INKEY$ 


mando BEEP recebeu o nome de 


Corrija a linha 40: 


115 IF A$<> 4, S" AND A$o"N" 


SOUND. Portanto, se voce tern um 


40 DATA 83, 67, 79, 82, 69, 45, 48, 


THEN GOTO 110 


TK-90X, substitua todas as ocorrencias 


48, 48, 48, 48, 48, 76, 73, 86, 69, 83, 




do comando BEEP pelo comando 


45, 53, 71, 65, 77, 69, 32, 79. 86, 69, 


Pag. 77 - I! col. - 2? progr. 


SOUND nas linhas 8010 (programas da 


82, 32, 33, 33, 33, 35, 35, 33, 35, 35, 


Para funcionar no ZX-81, divida a li- 


pigina I69 f 1? e3f colunas), 80IOe8015 


35, 33, 35, 35, 33, 35, 33, 35, 35, 35, 


nha 15 em: 


(programa da pigina 170, If coluna) e 


35, 33, 35, 33, 35, 35, 35, 35, 33, 35, 


15 INPUT A 


400 (pigina 170, 2? coluna). 


35, 33, 35, 35, 35 


16 INPUT B 








Pag. 213 - 3f col. - I? parigr. 


Pig. 867 - 3? col. - progr. 


Pag. 78 - 2? col. - progr. 


Onde se le: Os comandos Id de, 16384 


Corrija a linha 100: 


Para funcionar no ZX-81 , forme no- 


e Id hi, 1,16385 


100 GOSUB 2 


vas linhas com os COmandos separados 


Leia-se: Os comandos Id de, 16384 c Id 


e, na linha 2, substitua GOTO 10 por 


por dois pontos (GOTO 170) nas linhas 


hi, 16385 


GOTO 1 


130, 140 e 150. 








Pag. 248 - 2? col. - progr. 


Pig. 902 ■ 2f col. - progr. 


Pag. 94 - 2? col. - 4? parigr. 


Na 4.° linha da linha 5120, 


Corrija a linha 2720: 


Onde se le: No ZX-81 a iecla RAMD 


onde sete: 'Md'\64,6, 


2720 LETPF = 0:IF I$="S M OR I$ = 


fornece RAND na tela). 


leia-se: M ld M ,64,22, 


»s" THEN GOTO 2760 


Leia-se: No ZX-81 a tecla RAND pode 






ser usada para essa finalidade). 


Pig. 251 - If col. - progr. 


Pig. 921 - 2? col. - progr. 




Acrescente ao final da linha 61 10: 


Corrija a linha 50: 


Pag. 244 - 2? col. - 1? progr. 


:GOSUB 6160 


50 FOR M=I TO N(N) 


O programa tambem funciona para 


Na linha 6150, 




o ZX-81. Apenas coloque o GOTO 10 


onde se le: GOSUB 6260 


Pig. 1042 - 2? col. - progr. 


da linha 30 em uma linha separada. 


leia-se: GOSUB 6160 


Corrija a linha 2790: 
2790 DATA "cava1eiro M , "sargento 


Prig. 245 - 2? col. - progr. 


Pag. 251 - 2f col. - progr. 


" , "lanceiros" , "lanceiros M , "arqu 


O programa tambem funciona para 


Acrescente a linha: 


eiros" , "arqueiros" , "camponeses" 


o ZX-81. 


9999 STOP 


,"camponeses" 


Pig. 334 - 3? col. - progr. 


Pag. 278 - 2f col. - progr. 


Pig. 1214- 2f col. 


O logotipo nao se aplica a este 


Corrija a linha 1010: 


Onde se le: X$(LEN XS - N TO + I) 


programa. 


1010 PRINT AT 12.6;S$ 


Leia-se: X$(LEN X$-N TO) 





Pig. 6 - 3? col. - quadro 

Corrija a 2? linha de codigos 
numehcos: 

Onde se le: 152 131 190 176 128 
Leia-se: 151 131 191 176 280 

Pag. 24 - 3? col. - progr. 

Para funcionar no TRS-80, substitua 
a linha 8 por: 
8CLS 

Pig. 30 - 1? col. - 1? progr. 

Corrija a linha 40: 
40 IF K$ = "F" THEN M = 374 ELSE 
GOTO 30 

Pig. 31 - 2. a col. - 4? paragr. 

Onde se le: O programa para o TRS-80 
lunciona de modo idcntico ao pro- 
grama para o TRS-Color. 

Leia-se: O programa para o TRS-80 
funciona de modo identico ao pro- 
grama para o TRS-Color. As teclas 
a serem pressionadas, porem, sao L 
e R, que comandam, respeclivamcn- 
te, movimentos a esquerda e a direita. 

Pag. 33 - 3? col. - progr. 

Corrija a linha 150: 
150 IF PO>1022 OR PO<0 THEN 
PO = LP: GOTO 50 

Pag. 62-1? col. - progr. 

O iogotipo nao se aplica a este 
programa. 

Pag. 63 - 2? col. - 3? paragr. 

Onde se le: programa para o TRS-80 e 

o TRS-Color, 
Leia-se: programa para o TRS-Color, 

Pig. 224 - 1? C 2? col. - progr. 

Acrescente (apos o programa): 
O programa indicado funciona ape- 
nas no TRS-Color. Para executa-Io no 
TRS-80, faca as seguintes modificaeoes: 
mulliplique por dois todos os numeros 
depois dos comandos PRINT®, nas li- 
nhas 10, 20, 30, 60, 90 e 110; suprima 
as linhas 15 e 120, e inclua a linha: 
95 TIMER = TIMER + 0.1 

Pag. 270 a 275 

Todos os programas indicados para 
o TRS-Color tambem funcionam no 
TRS-80. 

Pig. 322 - li 1 col. - 2? progr. 

O programa tambem pode ser exeeu- 
tado no TRS-80. 

Pag. 375 - 1? col. - progr. 

O Iogotipo nao se apiica ao programa. 



Pag. 612 - 2? col. - progr. 

Acrescente a linha 35: 
35 PRINT FNT$(I$) 

Pig. 652 - 1? col. - 2? paragr. 
Onde se le: POST (-2) 
Leia-se: POS ( - 2) 

Pig. 702 - 3f col. - progr. 

O Iogotipo nao se aplica ao programa. 

Pag. 932 - quadro - 11? paragr. 

Esta indicacao tambem serve para o 
TRS-80. 

Pag. 1122- 1? col. - progr. 
Pag. 1126 - 3? col. - progr. 
Pag. 1127 - 2? col. - progr. 
Pig. 1177 -3? col. - progr. 
Pig. 1179-2? c3? col. -progr. 
Pig. 1180-3? col. - progr. 
Pig. 1184 - 1? col. - progr. 
Pig. 1303 - 1? col. - progr. 

Pag. 1305 - 1?, 2? e 3? col. - progr. 

Os programas para o TRS-Color 
tambem funcionam no TRS-80. 



Pag. 19 - 2? col. - progr. 

Corrija a linha 430: 
430 RESTORE: FOR J = TO N - 1:READ 
A$:PRINT#-P,STR1NG$(LL-ML," "); 
SP$;:PRINT# -P,MJD$(A$,2); 
CHRS(I3); 

Pig. 31 - 2? col. - 3? parigr. 

Ondese le: A linha 60 invesliga se "L" 
foi pressionada... A linha 70 con fe- 
re se ir R" foi pressionada... 

Leia-se: A linha 60 invesliga se "E" foi 
pressionada... A linha 70 confere se 
"D" foi pressionada... 

Pag. 45-1" col. - 5° paragr. 

Ondese le: apenas os das linhas TRS-80 

c MSX 
Leia-se: apenas os das linhas TRS-80, 

TRS-Color e MSX 

Pag. 52 - 3? Col. - quadro 

Onde se le: se N for a locucao da tela 
/ eifrse: se N for a locapao da tela 

Pig. 65 - l. a col. - progr. 

Corrija a linha 420 
420 LET K$=INKEY$:IF K$ = " M 
THEN GOTO 420 

Pig. 90-3? col. - 4? parigr. 

Onde se le: ...limitar a memoria em 
§H3680... que se reserve memoria 
s6 ate §H3680... so poderd usar o 
CLEAR ate §H1E80. 



Leia-se: ...limitar a memoria em 
&H3680... que se reserve memoria so 
ate &H3680... so podera usar o 
CLEAR ate &H1E80. 

Pig. 219 - 2f col. - 3? parigr. 

Onde se le: PSHB armazena tempora- 

riamente na pilha 
Leia-se: PSHS armazena temporaria- 

mcnte na pilha 

Pig. 296 - If col. - progr. 

Corrija a linha 10: 
10PCLEAR l:CLEAR 3000:CLS:PRIN 
T@233;iNICIALlZANDO":R$ = CHR$( 

13):POKE 146,1 

Pig. 297 - 2? eol. - progr. 

Corrija a linha 100: 
100 DATA CQM,I15,3.CWAI,I08,1,D 
AA,25.,ORA,186,l,TST,125,3,LEAS, 
66,3,LEAU,67,3,LEAX,64,3,LEAY, 
65,3,MUL,61„EORA,I84,1,ORB,250,1 

Pig. 299 - 3? col. - progr. 

Corrija as linhas 1550 e 1560: 
1550 P1 = 1478:P0 = P1;P2 = 
1560 PRINT@448-P2,K:TAB(6)T$(K2): 
P9=P0 + LEN(T$(K2)) 
e acrescente a linha 1565: 
1565 IFLEN(T$(K2)) + P0>1503THEN 
P0=P0-32:P2 = P2 + 32:Pl = PI-32: 
GOTO 1565 

Pig. 300 - l. a col. - progr. 

Corrija a linha 1950: 
1950 IFXSoTOR BD$< t4 0" OR 
BDS^'G" THEN 1980 

Pag. 327 - 3? col. - 2? progr. 

Este programa tambem pode ser exe- 
cutado no TRS-Color. 

Pig. 495 - If col. - 6? paragr. 

Onde se le: Ap6s digiar C 
Leia-se: Ap6s digitar C 

Pig. 535 - 3? col. - 6? paragr. 
Onde se le: GEI 
Leia-se: GET 

Pig. 607 - If col. - progr. 

Na linha 2340 t corrija IF ABS(OY) 
para IF ABS(PY) 

Pig. 656 - If col. - progr. 

Corrija as linhas 3040 e 3050: 
3040 IF PEEK(342) = 247 THEN PT = 
PT-I 

3050 IF PEEK(343) = 247 AND RL> 
- 30 THEN 

Pig. 703 - 3f col. - progr. 

Acrescente a linha 950: 
950 FOR DE=I TO 3000:NEXT:RE 
TURN 



Pag. 760 - 3. a col. - progr. 

Corrija a I'mha 9200: 
9200 DrM LE$(27) 

Pag. 829 - 2f col. - progr. 

Corrija a tinha 70: 
70 PSHS X 

Pag. 830 - 1? col. - progr. 

Corrija a tinha 90: 
90 PULS B 

Pag. 932 - quadro - \\? paragr. 

Esta indicacao tambem serve para o 
TRS-Color. 

Pag. 997 - 3? col. - progr. 

Corrija a linha 130: 
130 LDA #5 

Pag. 1040 - 2? col. - progr. 

Corrija a linha 1280: 
1280 IF NL>30THEN NL = 30 

Pag. 1044 - 2? col. - progr. 

Na tinha 1420, onde se le SR$(I), co- 
ioque STRS(I) 

Pag. 1047 - 3! col. - progr. 

Na linha 2490, ondesele SR$(I). eo- 
loque STR$(I) 

Pag. 1075 - 2f col. - progr. 

Apague a linha IS e acrescente a 180: 
180 GOSUB 2410:CLS:END 

Pag. 1118-2? col. -progr. 

Corrija a linha 10: 
10 ORG 19781 

Pag. 1236 - 1? col. - progr. 

Apague a linha 9870. 

Pag. 1236 - 3? col. - progr. 

Onde se le: 9870 (linha) 
Leia-se: 980 

Pag. 1239 - 2? col. - progr. 

Substitua o sinal circunflexo entre as- 
pas w "" por "" nas linhas 550 e 580. 

Pag. 1239 - 3? col. - progr. 

Substiiua, na linha 950. PRINT@433 
por PR1NT@432 



Pag. 10 - 3? col. - 3? paragr. 
Troque de lugar as linhas: 
20 HTAB I8:VTAB 10:PRINT "000" 
e 20 LOCATE 18.10:PRJNT "000" 

Pag. 16-1? col. - progr. 

Corrija a linha 140: 
140 GOTO 80 



Pag. 30 - 1? col. - progr. 

Corrija a linha 60: 
60 LOCATE 18,M:PRINT """ 

Pag. 32 - 2? col. - 2? paragr. 

Onde se le: a tecia CLEAR (cddigo 26) 

Leia-se: a tecla < CLEAR > (codigo27) 

Pag. 33 - 1? col. - 1? paragr. 

Onde se le: teclas Z e X 
Leia-se: teclas com flechas 

Pag. 33 - If col. - 1? paragr. 

Acrescente: 

Nos micros da linha MSX, as teclas 
a serem utilizadas para deslocamenlo da 
base e disparo sao, respectivamente, as 
flechas do cursor e da barra de espa^os 
(correspondentes aos codigos 28, 29 e 32). 

Pag. 58 - 3? col. - progr. 

Corrija a linha 330: 
330 LOCATE 2 + X*3.18:PRlNT 
USING "#";N; 

Pag. 73 - l! 1 col. - progr. 

Corrija as linhas 20 e 30: 
20CLS:CLEAR l000O:R$ = "P RMCA1" 
30CLS:LOCATE5,l:PRINT ,t M EN U 
PRINCIPAL" 

Pag. 73 - 3? col. - progr. 

Corrija a linha 1 130; 
1130 NEXT:R = INT(100O0/(TS*3*A)) 
:PRINT:PRINT M Numero maximo de 
registros - >";R 

Prig. 74 - If col. - progr. 

Corrija a linha 7070: 
7070 OPEN F$ FOR OUTPUT AS # 1 

Piig. 84 - 2? col. - progr. 

Corrija a linha 3020: 
3020 IN$ = INKEY$:IF IN$ = "" 
THEN 3020 

Pig. 85 - 1? col. - progr. 

Corrija a linha 5070: 
5070 IF D>NR AND G = l THEN G=0: 
CH = - I ELSE IF D > NR THEN 5230 

Pag. 93 - If col. - progr. 

Corrija a linha 250: 
250 POKE SA,VAL("&HO" + S$) 

Pig. 95 - 2? col. - 1? paragr. 
Onde se li: o comando RUN: 
Leia-se: o comando RUN (defina antes 

a drea onde esta a rotina, digitando 

DEFUSR = &HE0OI): 

Pag. 95 - 2f col. - 2? paragr. 

Onde se le: 
§HE001 
Leia-se: 
&HE001 



Pag. 107 - 2f col. - 6? parigr. 
Pag. 119- 3? col. - 2? paragr. 

Acrescente: 

E possivel dcsenhar letras e graficos 
na mesma tela do MSX, porem usamos 
o comando DRAW ncste programa, de 
modo a compatibiliza-lo com as versoes 
para outros computadores. 

Pag. 120 - 3f col. - 9? paragr. 

Onde se le: As cores disponiveis no 
PMODE 3,1 sao: verde ( 1 ), amarelo 
(2), azul (3) e vermelho (4). 

Leia-se: As quatro primeiras cores dis- 
poniveis para o SCREEN grdfico no 
MSX sao: preto (1), verde (2), verde- 
claro (3) e azul-escuro (4). 

Piig. 171 - 3f col. - progr. 

Acrescente estas linhas: 
135 FOR Z= 1 TO 15 STEP .05: SOUND 8.Z 
137 NEXT:RETURN 
140 SOUND 1,0:FOR Z = TO T 
STEP .3 

145 SOUND A,Z:SOUND A.255-Z 
147 NEXT:RETURN 
150 FOR Z = TO 10 
154 FOR ZZ = TO T STEP 5 

156 SOUND l,Z:SOUND A,ZZ 

157 NEXT ZZ,Z:RETURN 
160 FOR Z-15 TO T 

164 FOR ZZ = 0TO 15 

166 SOUND l,Z:SOUND A,Z-ZZ 

167 NEXT ZZ t Z:RETURN 

170 IF T=255 THEN T=80 

171 SOUND l,0:FOR Z= 1 TO 40 
174 FOR ZZ = 10TO RND (1)*T 

176 SOUND A,ZZ 

177 NEXT ZZ,Z:RETURN 

180 SOUND 1,I:IFT = 255 THEN 

T=100 

184 FOR Z= 10 TO T STEP 5 

186 FOR ZZ=5 TO Z 

187 SOUND A.Z-ZZ 

188 NEXT ZZ,Z:RETURN 

190 IFT = 255THENT=16:A=1 

191 FOR ZZ=1 TO 30 

192 SOUND A,RND(1)*T 

195 FOR Z= I TO RND(1)*200 
197 NEXT Z,ZZ:RETURN 

200 IFT = 255 THEN T=16:A=I 

201 FOR ZZ=1 TO 10 

202 SOUND A,RND(1)*T 

205 FOR Z = 1 TO RND( 1 )* 1 6 STEP 8 
207 SOUND 8 t Z:NEXT Z.ZZ.RETURN 

Pag. 189 - 3f col. - 1? paragr. 
Onde se le: SPRITE(O) A$ 
Leia-se: SPRITE(0) = A$ 

Pag. 262 - If col. - progr. 

Este programa funciorw no MSX. 

Pig. 401 - 2f col. - progr. 

Acrescente a tinha 5005: 
5005 DIM G(110) 



Pag. 412 - 2? col. - 3? paragr. 

Onde se le: O la?o das linhas 70 a 90 co- 

loca nesse local 
Leia-se: O la?o das linhas 60 a 90 colo- 

ca nesse local 

Pig. 429 - 1? col. - progr. 

Corrija a I in ha 2030: 
2030 DRAW "S12BM" + STR$(CX + 3) 
+ 1 V' + STR$(CY + 2) + S$ 

Pag. 430 - 3? col. - 3? paragr. 

Onde se le: A linha 60 dimensiona 
Leia-se: A linha 82 dimensiona 

Pag. 431 - 2? col. - 2? parigr. 

Onde se ie: das linhas 70 a 110 
Leia-se: das linhas 88 a 96 

Pag. 452 - 1? col. - progr. 

Acrescente a linha 6505: 
6505 CLOSE #1 

Pag. 464 - If col. - progr. 

Corrija a linha 800: 
800 A$ = INK£Y$:IF A$ = (1 N" AND 
A$<>"S" THEN 800 

Pig, 553 - 3? col, 

Onde se te: Linha 220: <SHIFT> 

< GRAPH > 
Leia-se: Linha 220: < SHIFT > 

< GRAPH >\ 

Pag. 579 - 2f col. - progr. 

Corrija a linha 10: 
10 CLS:KEYOFF 

Pag. 612 - 2f col. - progr. 

Acrescente a linha 35: 
35 PRINT FNT$(I$) 

Pag. 618 - 3? col. - progr. 

Na linha 3400, 
onde se ie: LPRINT TT$;CHR$(32); 
leia-se: LPRINT TT$;CHR$(10); 

Pag. 622 - 2f col. - 2? parigr. 
Onde se Ie: F1F2 
Leia-se: Fl, F2 

Pag. 626 - 2f col. - 2? e 3? progr. 

Troque de posigao estes prograrnas. 

Pag. 681 - 2? col. - progr. 

Acrescente as linhas 1500 e 1510: 
1500 SCREEN 1 
1510 CLS 

Pag. 692 - 2f col. - 6? paragr. 
Onde se Ie: CCTRL-D 
Leia-se: CTRL-D 

Pag, 792 - 2? col. - progr. 

Corrija a linha 10: 
10 org -12213 



Pag. 793 - If col. - progr- 

Corrija a linha 10; 
10 org - 12197 
e suprima a linha 20. 

Pig. 794 - 2f col. - progr. 

Corrija as linhas 20 e 120: 
20 call -12213 
120 call -12210 

Pig. 831 - If col. - progr. 

Corrija a linha 30: 
30 Id hi, -15200 

Pig. 916 - 3? col. - 3? paragr. 
Onde se le: A linha 200 zera C 
Leia-se: A linha 220 zera C 

Pag. 945 - 2? e 3? col. - progr. 

Corrija estas linhas: 
10 org 53693 
80 Id de,222 
600ld(-5223),de 
640 Id de,(-5223) 
670 id( - 5223),de 

Pig. 946 - If col. - 2? paragr. 

Onde se le; A sub-rotina his 
Leia-se: A sub-rotina ho 

Pag. 946 - If col. - 4? paragr. 

Onde se le; a sub-rotina snp, 
Leia-se: a sub-rotina sn, 

Pag. 946 - If, 2f c 3f col. 

Onde se le: ho 
Leia-se: po 

Pig. 946 - 2f col. - 3!' e 5? parigr. 

Onde se te: hp 
Leia-se: pp 

Pig. 946 - 2f col. - 5? parigr. 

Onde se le: as instrucoes pusch 
Leia-se: as instrucoes push 

Pig. 971 - If col. - progr. 

Corrija a linha 10: 
10 org -11678 
e acrescente as linhas: 
25 Id a,88 
28 Id (- 12I62),a 
135 call -12144 

Pag. 1010 - 3f col. - progr. 

Acrescente a linha 180: 
180 FOR Di=l TO T:NEXT 
e ordene as linhas 3000 a 3140 e 4000. 

Pig. 1011 - 1? col. - 1? parigr. 

Onde se le: as variaveis K0 a K5 
Leia-se: as variaveis Kl a K5 

Pig. 1034 - 2? col. - progr. 

Corrija a linha 355: 
355 DIM T(I7,9) 



Pig. 1040 - If col. - progr. 

Corrija a linha 1180: 
1180 IF M(T(B, 8),T(B,9)) <>0 THE 
N GH = 223 + M(T(B,8),T(B,9)) 

Pag. 1042 - 3? col. - progr. 

Apague a linha 200 e acrescente: 
201 VC = 0:DE = 

Pig. 1131 - 2f col. - progr. 

Corrija a linha 90: 
90 cp 

Pig. 1186 - 2f col. - progr. 

Corrija a linha 350: 
350 REM Id a,4 

Pig. 1213 - 1? col. - progr. 

Corrija a linha 900: 
900 jp 53850 

Pig. 1232 - If col. - progr. 

Corrija a linha 90: 
90 Id a, 3 

Pig. 1329 - If col. - ultimo progr. 

Substitua o programa por: 
AP CIRCULO :LADO 
DESAPARE£A TAT 
REP1TA 72 [PF :LADO PD 5] 
APARE^ATAT 
FIM 

Pig. 1344 - 2f col. - progr. 

Onde se le: TO DADOS 
Leia-se: AP DADOS 

Pig. 1366 - 3:' col. - ultimo parigr. 

Elimine o trecho final do texto: Vol- 
taremos a cste assunto oporlunamente, 
quando explicarmos os registros do chip 
de video- VDP. 



Pig. 18 - 2? col. - 2? parigr. 

Onde se le: Modifique a linha 30 
Leia-se: Modifique a linha 120 

Pig. 20 - If col. - progr. 

O programa naofunciona no Apple 
e no TK-2000 sent sistema operacional 
de disquete. 

Pig. 44 - 3f col. - penultimo parigr. 

Acrescente: 

No Apple II e no TK-2000, sao mos- 
trados blocos coloridos na tela (comaii- 
do VLIN das linhas 85 a 95). 

Pig. 45-1? col. - I? paragr. 

Acrescente: 
As linhas 220, 230 e 240 dos programas 
para outros micros correspondem ks li- 
nhas 110, 120 e 130 para o Apple. 
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Pig. 52 - 2? col. - progr. 

Acrescente a linha 1095: 
1095 LETTI = TI+I 

Pag. 52 - 2? col. - 6? parigr. 

Onde se le: em 999999 segundos 
Leia-se: em 99999 segundos 

Pag. 52 - 3? col. - 1? paragr. 

Onde se le: dividindo-se FA por 50 
Leia-se: dividindo-se TI por 50 

Pag. 52 - 3? col. - 3? paragr. 

Onde se le: A linha 1290 aguarda... e a 

linha 1300 verifica 
Leia-se: A linha 1240 aguarda... e a mes- 

ma linha verifica 

Pag. 66 - 2? col. - progr. 

Acrescente a linha 310: 
310 LETT = T+l:GOTO 130 

Pag. 66 - 3." col. - 2? paragr. 

Onde se le: tempo gasto na linha 320 
Leia-se: tempo gaslo na linha 310 

Pag. 80 - If col. - progr. 

Retire a linha I0 t para funcionar no 
Apple 11 e no TK-2000. 

Pag. 117-2? col. - 2? paragr. 

Onde se le: As linhas 80 e 90 
Leia-se: As linhas 120 e 130 

Pag. 118 - If col. - 1? paragr. 

Substitua o trecho a partir da 8. a li- 
nha por: 

tamanho do circulo, entrando diferen- 
tes valores para XC, YC e R. O nume- 
ro miximo para R que voce pode colo- 
car ira depender, logicarnente, das coor- 
denadas do centro do circulo. Este nao 
pode exceder os limites da tela, senao 
ocorrera urn erro no comando HPLOT. 

Pig, 127 - 3? col, - 4? paragr. 
Onde se le: <CTPL> e <C>. 
Leia-se: <CTRL> e <C>. 

Pag. 167 - 1? col. - 2? paragr. 

Onde se le: o comando GETS 
Leia-se: o comando GET 

Pag. 168 - 2f col. - 2? paragr. 

Onde se le: (chamado de hipe 
Leia-se: (chamado de hipe 

Pag. 220 - 3? col. - S? parigr. 
Onde se le: RTS 
Leia-se: RTE 

Pag. 259 - 1? col. - progr. 
Pag. 281 - 2? col. - 2? progr. 
Pag. 283 - 3? col. - 3'.' progr. 

O programa para o TK-2000 tambem 
funciona para o Apple. 



Pig. 344 - 1? col. - 2? paragr. 
Onde se le: linha 140, 
Leia-se: linha 410, 

Pag. 344 - 1? col. - 3? panigr. 

Onde se le: linha 420 
Leia-se: linha 490 

Pig. 656 • 1? col. - progr. 

Corrija a linha 6210: 
6210 IF AS < 40 THEN PRINT "COMO 
SUA VELOCIDADE ERA BAIXA, M 
:PR1NT"NADA ACONTECEU": 
GOTO 6500 

Pag. 692 - 2? col. - 6? panigr. 
Onde se le: CCTRL-D 
Leia-se: CTRL-D 

Pag. 845 - 3? col. - progr. 

Corrija as linhas: 
2060 IF P= 1 THEN PR# 1 
2220 NEXT:PRINT 
2230 PRINT # 0:RETURN 

Prig. 932 - quadro - 11? paragr. 

A indicagao tambem e vdlida para o 
Apple 11. 

Pag. 1034 - 2? col. - progr. 

Apague a linha 360 e acrescente: 
361 DIM T(16,9) 



Pag. 88 - 2! col. - 1? paragr. 

Onde se le: pelo comando MA. 
Leia-se: pelo comando ASS. 

Pig. 116 - 3? col. - progr. 

Para rodar no TK-2000, substitua as 
linhas 50 e 60: 
50 HPLOT 10,75 TO 11,190 
60 HPLOT 10,190 TO 200,190 

Pag. 117- 2? col. -2? paragr. 

Onde se le: As linhas 80 e 90 servem pa- 
ra desenhar a antena. 

Leia-se: As linhas 120 e 130 servem pa- 
ra desenhar a antena. 

Pig, 117-3? col. - progr. 

Para rodar no TK-2000, acrescente as 
linhas: 
18 XL = XC:YL = YC + R 

29 XN = XC + R*SIN(N): YN = YC + R* 
COS(N) 

30 HPLOT XL,YL TO XN,YN:XL = 
XN:YL=YN 

Pig. 118 - If col. - I? panigr. 

Substitua o trecho a partir da 8" li- 
nha por: 

tamanho do circulo, entrando diferen- 
tes valores para XC, YC e R. O nu- 



mero maxirno para R que voce pode 
colocar ira depender, logicarnente, das 
coordenadas do centro do circulo. Es- 
te nao pode exceder os limites da te- 
la, senao ocorrera urn erro no coman- 
do HPLOT. 

Pig. 127 - 2. B col. - 3? paragr. 

Onde se le: Para entender melhor, ex- 
perimente introduzir a linha: 

Leia-se: Para entender melhor, experi- 
mente introduzir a linha (nao vale pa- 
ra o TK-2000): 

Pag. 161 - 3? col. - progr. 
Pig. 162 - 3? col. • progr. 

Estes prog ram as tambem podem ser 
executados no TK-2000. 

Pag. 432 - 3? col. 
Ondese le: 1160 MP:HGR 
Leia-se: 160 MP:HGR 

Pig. 482 - 2? col. - progr. 
Pag. 483 - 1? col. - progr. 
Pag. 485 - I? col. - progr. 
Pig. 486 ■ 2? e 3? col. - progr. 
Pag. 487 - 2? col. - progr. 
Pig. 518 - 1? col. - progr. 

Estes programas nao podem ser exe- 
cutados no TK-2000. 

Pig. 656 -If col. - progr. 

Corrija a linha 6210: 
6210 IF A$<40 THEN PRINT "COMO 
SUA VELOCIDADE ERA BAIXA." 
:PRINT"NADA ACONTECEU": 
GOTO 6500 

Pig. 768 - 2? col. - progr. 
Pag. 769 - 3. a col. - progr. 
Pig. 771 - 1? col. - progr. 
Pig. 773 - If col. - progr. 
Pig. 782 - 2? col. - progr. 
Pig. 786 - 2? col. - progr. 
Pig. 787- 2? col, - progr. 
Pig. 858 - 3? col. - progr. 
Pig. 875 - 1? e 2? col. - progr. 

Estes programas nao podem ser exe- 
cutados no TK-2000. 

Pig. 932 - quadro - 11? paragr. 

A indicagdo tambem e vdlida para o 
TK-2000. 

Pag. 960 - 1? col. - progr. 
Pig. 974 - 3? col. - progr. 
Pag. 976 - 3? col. - progr. 
Pag. 977 - 2? col. - progr. 
Pig. 979- If e3. a col. - progr. 
Pig. 980 - 2? col. - progr. 
Pig. 1372 - 2? col. - progr. 
Pig. 1374 - 2? col. - progr. 
Pig. 1376 - If col. - progr. 

Estes programas nao podem ser exe- 
cutados no TK-2000. 



